home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / polardrw / data.z / frmGuidelines.frm < prev    next >
Text File  |  1999-04-29  |  4KB  |  125 lines
  1. VERSION 5.00
  2. Object = "{9D74B104-40BE-11D2-AA5F-008048E292F1}#1.0#0"; "COLORSELECT.OCX"
  3. Begin VB.Form frmGuidelines 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Set guidelines"
  6.    ClientHeight    =   1695
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   3885
  10.    Icon            =   "frmGuidelines.frx":0000
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1695
  15.    ScaleWidth      =   3885
  16.    StartUpPosition =   1  'CenterOwner
  17.    WhatsThisHelp   =   -1  'True
  18.    Begin VB.CommandButton btnChooseColor 
  19.       Caption         =   "Choose color..."
  20.       Height          =   330
  21.       Left            =   120
  22.       TabIndex        =   2
  23.       Top             =   1245
  24.       Width           =   1335
  25.    End
  26.    Begin VB.CommandButton btnCancel 
  27.       Caption         =   "Cancel"
  28.       Height          =   345
  29.       Left            =   2985
  30.       TabIndex        =   4
  31.       Top             =   1200
  32.       Width           =   780
  33.    End
  34.    Begin VB.CommandButton btnOK 
  35.       Caption         =   "OK"
  36.       Height          =   315
  37.       Left            =   3000
  38.       TabIndex        =   3
  39.       Top             =   840
  40.       Width           =   780
  41.    End
  42.    Begin ColorSelectLib.ColorSelect ctlCSGuidelines 
  43.       Height          =   330
  44.       Left            =   1740
  45.       TabIndex        =   5
  46.       Top             =   2130
  47.       Width           =   420
  48.       _Version        =   65536
  49.       _ExtentX        =   741
  50.       _ExtentY        =   582
  51.       _StockProps     =   0
  52.    End
  53.    Begin VB.CheckBox chckGuidelines 
  54.       Caption         =   "Show guidelines"
  55.       Height          =   255
  56.       Left            =   120
  57.       TabIndex        =   0
  58.       Top             =   270
  59.       Value           =   1  'Checked
  60.       Width           =   1695
  61.    End
  62.    Begin VB.CheckBox chckSnapToGuidelines 
  63.       Caption         =   "Align shapes to guidelines"
  64.       Height          =   360
  65.       Left            =   120
  66.       TabIndex        =   1
  67.       Top             =   690
  68.       Value           =   1  'Checked
  69.       Width           =   2280
  70.    End
  71. End
  72. Attribute VB_Name = "frmGuidelines"
  73. Attribute VB_GlobalNameSpace = False
  74. Attribute VB_Creatable = False
  75. Attribute VB_PredeclaredId = True
  76. Attribute VB_Exposed = False
  77. Dim crGuidelinesColor As OLE_COLOR
  78. Dim fSnapToGuidelines, fShowGuidelines As Boolean
  79.  
  80.  
  81.  
  82. Private Sub btnCancel_Click()
  83.     
  84.     frmDrawVB.POLARDraw1.GuidelineColor = crGuidelinesColor
  85.     frmDrawVB.POLARDraw1.DrawGuidelines = fShowGuidelines
  86.     frmDrawVB.POLARDraw1.SnapToGuidelines = fSnapToGuidelines
  87.     
  88.     Unload Me
  89. End Sub
  90.  
  91. Private Sub btnChooseColor_Click()
  92.     ColorSelectPosition ctlCSGuidelines
  93.     ctlCSGuidelines.SelectColorModeless
  94. End Sub
  95.  
  96. Private Sub btnOK_Click()
  97.     crGuidelinesColor = ctlCSGuidelines.SelectedColor
  98.     fShowGuidelines = CBool(chckGuidelines.Value)
  99.     fSnapToGuidelines = CBool(chckSnapToGuidelines.Value)
  100.     
  101.     frmDrawVB.POLARDraw1.GuidelineColor = crGuidelinesColor
  102.     frmDrawVB.POLARDraw1.DrawGuidelines = fShowGuidelines
  103.     frmDrawVB.POLARDraw1.SnapToGuidelines = fSnapToGuidelines
  104.     
  105.     Unload Me
  106. End Sub
  107.  
  108. Private Sub chckGuidelines_Click()
  109.     frmDrawVB.POLARDraw1.DrawGuidelines = CBool(chckGuidelines.Value)
  110. End Sub
  111.  
  112. Private Sub ctlCSGuidelines_SelectionEndOK()
  113.     frmDrawVB.POLARDraw1.GuidelineColor = ctlCSGuidelines.SelectedColor
  114. End Sub
  115.  
  116. Private Sub Form_Load()
  117.     crGuidelinesColor = frmDrawVB.POLARDraw1.GuidelineColor
  118.     fShowGuidelines = frmDrawVB.POLARDraw1.DrawGuidelines
  119.     fSnapToGuidelines = frmDrawVB.POLARDraw1.SnapToGuidelines
  120.     
  121.     ctlCSGuidelines.SelectedColor = crGuidelinesColor
  122.     chckGuidelines.Value = Abs(fShowGuidelines)
  123.     chckSnapToGuidelines.Value = Abs(fSnapToGuidelines)
  124. End Sub
  125.